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ABSTRACT 


Song File Match is a computer program which compares the note 
sequence of a new entry to those previously stored in the song file 


database. Songs containing matching sequences are listed. 
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1.0 - PROGRAM IDENTIFICATION 
SONG FILE NOTE MATCH 
2.0 - OBJECTIVE 
To check if a song already exists in the song file database by 
comparing the note sequence of the songs in the database and the 
one to be added to the database later. 
3.0 - PROGRAM DESCRIPTION 
3.1 ~ Program Logic 
The Song File database is iad and sorted by note sequence 
(twelve notes). A song title and note sequence is read. 
The program searches the Song File for a match on the note 
sequence. All matches are printed. This process continues 
until all songs to be checked have been processed. 
3.2 - Variables and futebnai’ tables 
Integer Arrays: 


IHEAD (45) - is a scratch file used for the sort 


subroutine. 
LIST (45) - contains the indices of the array which 


was sorted in the order of the sort. 
NOTE (25) - contains the input record which is to be 
checked for duplication in the Song File. 
POINT (45) - contains the, indices of LIST. 
SONG (45, 59) - contains the Song File in core. 
Integers: 
COMPAR - is an input/output argument for the 


functions SORT and COMPAR. 


LOW 


NUMB 


MID 


BOTTOM 


is the denominator for finding the range 
of records to search in the database. 

is the smallest mean be. 

is the upper bound of the portion of the 
song file to be searched. 

is the lower bound of the portion of the 
song file to be searched. ee 
is the index of the note in the records 

of the song file and the input array 

which are to be compared for a match. = 
in the maximum number of elements in the 
song file to be searched. 1 NUMB N. 

is the number of records in the song 

file. 

is the smallest range of records used in 
searching for a match. 

is the old lower bound. 

is the old upper bound. 

is the index for LIST. 

is the index for POINT. 

is the range of records to be searched 

in the Song File. RANGE = UP - LOW. 

is the Lomas portion of the array which 


is not to be checked. When P = 14 then 


BOTTOM = 0; when P = 15, then BOTTOM = 


LOW. 


5.0 - DATA DESCRIPTION 


5.1 - 


5.2 - 


Input Formats 
See Attachment 1 
Output Formats 


See Attachment 1 


6.0 - PROGRAM CONSTRAINTS AND LIMITATIONS 


6.1 - 


6.2 - 


6.3 - 


6.4 - 


6.5 - 


, 


Programming Language . 
FORTRAN IV | 
Vendor 

University of California, Los Angeles Campus Computing 
Network. 

Storage Requirements 

Compilation: 98K se 

Execution: 56K 

1/0 Renisete: 361 

Hardware Configuration 

IBM 360 Model 91, Disk, Card Reader, Line Printer 
Program Parameters 

The program is cunvantty limited to forty-five records in 


song file. To increase this number change the following 


‘cards: 


DIMENSION NOTE (25), LIST (45)*, ‘1 HEAD (45)*, ‘POINT (45)* 
COMMON /X1/ SONG (45, 59)* 

1F (N.GT.45) Go to 23 

in Integer function COMPAR 


COMMON /X1/ SONG (45, 59)* 


7} | 


7.0 - 


6.6 - Error Messages 
EXCEEDED THE SONG ARRAY 


Processing terminates 


OPERATING INSTRUCTIONS 


Run in batch mode 

// job card 

// senneoie 

// EXEC FORTGCLG 

// FORT. SYSIN DD * 
program deck 

/ 


// GO. FTO4FO01 DD DSN = 


' // GO. SYSIN DD * 


data deck 
/* 
// 


f 
i 


'GRAMMER: Lanaii Kline _ 
WiDe- - SONGORILE HATOH 


FLowcHart Lavout Form 


OLD = LOW 
OLDER = UP 
BOTTOM=LOW-1 


roa P= 15 

Start ID = RANGE/8 +.—-——-- 
S= 16 

NUMB = RANGE 


Initialize 
Variables 


“Check for 


4 
i 3 
Matches and | 
4 write those An 
/ songs that 
match vs 


Read Song 


File 


uP = (((M -1) 
NUMB) /M) + 
BOTTOM 


I = SORT 
(List, THEAD 
N, COMPAR) 


UP = OLDER 


M=M+l1 
POINT (M) = 
I = LISTS(1) 


\ 


LOW = OLD 


LOW = (NUMB 
/M) + BOTTOM 


MID = N/16 
OLD = 1 
OLDER = N 


aanaNnanaNnananaa 


=2wanna 


naaa 


ds neaaAN 


9.0 - PROGRAM LISTING , S » at 


IMPLICIT INTEGEB (a-7) 
DIMENSION NOTE(25) ,LIST (45) ,ZHEAD (4&5) , POINT (45) 
COMAON /X1/SONG (45,59) 
EXTERNAL 


Le 

Ss 

up 
Low 
P 

NU AB 


N 
MID 


CLD 
CLDER 


COMPAR’ 


DENOMINATOR FOR FINDING SEARCH RAWGE TO PARTITION THE 
CATABASE 

EQUALS THE SMALLEST: CENOMINATOR USED TO PARTITION zune 
SONG PILF ARRAY 

UPPER BOUND OF PORTICN OF SONG FILE TO BE SEARCHED 
LOWER BOUND OF PORTICN OF SONG FILE TO BE SEARCHED 
INDEX OF NOTE IN NOTE SEQUENCE ARRAY 

KO. OP ELLESENTS IN THE SOWG PILE ARRAY 

KO. OF ELLESENTS IW THE SONG FILE ARRAY 

THE SMALLEST RANGE OF ELEMENTS TO BE PARTITIONED FPROA 
THE SONG PILE ARRAY 

THE CLD LOWER BOUND 

THE OLD UPPER BOUND 


WRITE (6,10) 


N=1 
Low=1 


PCRMAT (*1°) 


READ THE SONG PILE * 


READ(4,1,END=2) (SONG(N,I) »I= 1,59) 
FORMAT (5X,12A4,A3, 1252/5, 18A4,A3/I5,4X,13A8 ,A3) 


N=Ne 


IP(N.GT.45) GO TO 23 


GC TO 3 


END REACING SCNG FILE — SORT NOTE SEQUENCES 


N=N-1 
UP=N 
1=0 


I=SORT (LIST, LHEAD, N,COPPAR) 
EP (I.BQ.0) GO To 4 


4=8¢1 


PCINT (") =I 


I=LIST (1) 
GO TO 5 


BCTTOS=0 


p=14 
S=64 
NUNB=N 


SID=N/16 


READ INPUT CARD 


READ (5,6,END=7) (NOTE(J) ,J=1, 25) 

PORMAT (SX,12A4,A3, 1212) 

WRITE(6,3) (NOTE(J) ,J=1,25) : 

—_- — FORMAT (°0°77//°0", 12A4,A3,10X,°NOTE SEQUENCE -*,1X,1212) 


wnnana 


=eaANANANN: 


N Ow 


CLD=1 
OLDER=" 


TEST POR LOWER BOUND ; LOW > 


4=1 

n=2¢§ 

IP(M.2Q.S) GO TO 11 

LOW= (NOMB/A) ¢BOTTOR 

IF(LOW.LT.OLD) GO TO 71 

IF (NOTE (P).LE.SONG (POINT(LOW) ,P)) GO TO 9. 


NCTE GREATER THAN LOW = 
POUND LOWER BOUND 


TEST FOR UPPER BOUND : UP 


n=1 

N=Ne2 

IF(N.2Q.S) GO TO 19° 

OP= ( ((4-1) *NUM3) /A) +BOTTON 

IF (NOTE (P) «GE. SONG (POINT (UP), F)) GO TO 12 


NOTE LESS THAN UP 
FPCUND OPPER BOUND 


TF (P.2Q-15) GO TO 21 
RANGE=U0P-LOW 
IP(RANGE.GT.MID) GO TO 13 


TFST IF NCTF IS IN RANGE 


“po 14 I=Low,UP 
DO 15 J=14,25 
IP(NOPE(J).NE.SONG (POINT(I),J)) GO TO 14 


NOTES MATCH SO FAR 
CCNTINUE 
NOTES MATCH NOTES OF SCNG THE DATA3ASE 


WRITE(6,16) SONG (POINT (ZI) -45) » (SONG(POINT(I) ,J),J=1,84) 

FORMAT(*OTHE NOTE SEQUENCES MATCH THAT CF SONG NUMBER®,1X,15/* 

+10X, 12A%,A3,10X 235 EQUEMGE -", 1%,1212/* *,10X, 1804, 3) 

CONTINUE 
2 | 

NC MATCH | 


‘WRITE (6,17) 
FORMAT (*ONO MORE nATCHES POR THIS NOTE SEQUENCE) 
GC TO 4 | _ 


LOWER BOUND IS 1 OF SOTTON OF BANGE: 
t : | 


-aAQNAN 


“aanaa 
V-) 


syaaannvnaana 
ew 


LOW=OLER = 
GO TC 18 


RANGE IS TOC LARGE 


P=15 

™ ID=RANGE/@ 
S=16 
NOMB=RANGE 
OLD=LoW 
OLDER=UP 
BCTTOM=LCW-1 
GO TO 20 


LOWER BOUND IS N OR TOP OF RABGE 


UP=OLDER 
GO TO 22 


READ SORE DATA THAN ARRAY WAS DIMENSIONED 


WRITE (6,24) 5 
PORNAT(*1 EXCEEDED THE ARRAY SONG") 
END OF FILE «¢ 
WRITE(6, 10) 

sToP 


END . 


COMPUTER SYSTEMS REMARKS: 


FILE/RECORD LAYOUT 
Output file uses same format as the 


input file. 
’ TITLE: Database - Song File DATE: : _——___ FORMAT LEGEND: 


. Blank Packed Dec. 
FIIE ID: _‘ Input BLOCKING FACTOR: Alpha Octal 
BLOCK CONTAINS 


= F Numeric Hexadecimal 
PROGRAMMER: Lanaii Kline [91 }RECORDS Alptia/Num. 


wuouid 


RECORD I.D. 


NOTE SEQUENCE 
(12 Notes) 


= . 
js) RECORD I.D. 
Song Characteristics ne Rhythmic Struc- 


‘opi Features’ Features tural 


il : Feature 


OO CONTINUED 
RECORD I.D. 


90_ 95 __100 


COMPUTER SYSTEMS 
FILE/RECORD LAYOUT 


TITLE: Match Record DATE: es 3 . ——_—— FORMAT LEGEND: 

= : Packed Dec. 
Octal 
Hexadecimal 
Bina 


FILE ID: Input BLOCKING FACTOR: 
BLOCK CONTAINS— |TAPE) \ 
PROGRAMMER: Lanaii Kline rath [7 JrEcorps ~ | RECORD Layout (1) 


Ce 


NOTE Sequence 


(2 notes) 


my 


®Q RECORD I.D. 


ct 


40 
10 


30 


20 


INTEGER PUNCTION CCMPAR (I,J) 
If®PLICIT INTEGER (A-Z) 
COMMON /X1/SORG (45,59) 

K=14 

IP (SONG (I,K)-SONG (J,K)) 10,20,30 
CCSPAR=-1 

RETURN 

CCMPAR=1 

RETORN 

CCSPAR=0 

K=Ke1 

IF(K.LE.25) GO TO 40 

RETURN 

END 


NAaNAANAANAAANAAANAAAANANANAANA 


aANaA ANNA 


@vver 


EELEGER PUNCTION SORT(LISTS, IEBAD, N, COMPAR) 


\GENERAL SCRT ROUTINE 

LISTS IS AT LEAST W WORDS LONG, WHERE W IS THE HUSBER OF RECORDS 
TO BE SORTED. 

TEEFAD IS ALSO HW WORDS LONG AND Is USED- AS A SCRATCH AREA. 

COMPAR IS A 2-ARGOURMENT INTEGER PUSCTION HAVING A NEGATIVE VALUE 
IF THE RECORD REFERENCED BY TEE FIRST ARGUMENT IS TO BE SORTED 
BEFORE THE KECGRD REFERENCED EY THE SECOWD ARGUMEST, A ZERO VALUE 
IF THE ORDER IS IMMATERIAL, ABD A POSITIVE VALUE OTHERWISE. 
SINCE SORT DEALS WITH RECORD INDEXES ONLY, THE SORT KEYS MAY BE 
ARBITRARILY COMPLEX, AND THE RECORDS To BE SORTED NEED WOT BE 
IN MEMORY. 


USAGE 


ISTEGER SORT 

EITERNAL COMPAR (OPTIONAL, COPPAR MAY BE INTERNAL) 
I=SORT (LIST, IHEAD, N, COMPAR) 

IF (I.EQ.0) GO TO B 

DC_ANY PRCCESSING POR RECORD I HERE. 

I=LIST (2) ¢ 

GO TOA 

CONTINUE 


IFPLICIT INTEGER (A-Z) 

INTEGER CCMPAR, DIRECT 

INTEGER LISTS (N), I BEAD(N). 

EQUIVALENCE (MP,DIRECT), (JHEAL,NCHAIN) 
PXTERNAL COMPAR 


START EY SCANNING ALL FECORDS AND DETECTING ASCENDIBS OR 
DESCENDING CHAINS. PUT THE HEADS OF THESE CHAINS IN HEAD. 


a=1 
INDICATE BEGINNING OF CHAIN 


DIRECT=0 
I=1 


INDICATE RECORD 1 HEAD OF CHAIN 
JHEAD=1 

LISTS (1) =0 

IP(I.-GE.N) GO TO 10 

I1=I+1 

CEECK SEQUENCE OF TWO ADJACENT RECORDS. 


IF (COMPAR(I,I1)) 2,22,8 
IF(DIRECT) 9,3,4 


RECORDS I,I+#1 ARE IN ASCENDING SEQUENCE. 


~ 


ct 


wNANN 


wneaan 


SNaQAANAANANANDA 


ANANSCAAAN ANNCSANANwAAN 


20200 


12 


IF(DIRECT) 7,3,9 
START A PORWARD CHAIN. 


DIRECT=1 
JHEADI 


CONTINUE A FCRWARD CHAIN. 
LISTS (1) =11 

I=I1 . 

GO TO 1 


HAD A CHAIN, GOT A SEQUENCE CEANGE. 
INDICATE END OF CHAIN 


LISTS (I) =0 

SAVE HEAD OF CHAIN 

IEEAD(S) =JHEAD : 
A=Ae1 

D IRECT=0 

GC TO S 

RECORDS I,I#1 ARE IN DESCENDING SEQUENCE. 
IP(DIRECT) 9,99,6 

START A BACKWARD CHAIN. 

DIRECT=-1 

INDICATE END OF CHAIN 

LISTS (I) =0 

CONTINUE A BACKWARD CHAIN 

LISTS (11) =I 

UPDATE READ OF CHAIN 


JHEAD=1I1 
GO TO 5 


END OP CHAIN DETECTION. CLEAN UP AND START MERGE PASS. 


IRFAD(S) =JHEAD 
IF (NIRECT.GE.0) LISTS (I) =0 
IF (DIRECT.2Q.0) IHEAD(%)=N 


T=-1 
MP=0 
I=I+2 


IF (I-LT.M GO TO 15 


IP (I.EQ.8) GO TO 14 
M=MP 

IF (M.NE.1) GO TO 11 
SCRT=IHEAD(1) 
IBEAD(1)=0 

RETURN 

MP="P+1 

TL HEAD(ME)=IHEAD(I) 
IF (I-EQ.1) GO TO 13 
THEAD(T) =0 

GO TO 13 

J 1=1H2AD (I) 

J 2=1HEAD (I#1) 

I BEAD (I) =0 
LEEAD(I#1) =0 

T1=J1 

1z=J2 

ME=MBP+1 

NCHAIN=0 

IP (COMPAR(J1,J2).LE.0) GO TO 17 


J2 SHOULD CCME BEPORE J1. 


IF (NCHAIN.EC.0) IHEAD(MP)=J2 
IF(NCHAIN.EQ.1) LISTS (I 1) =J2 
NCHAIN=2 

I 2=32 

J2=LISTS (12) 

IP(J2.NE.0) GO TO 16 

LISTS (12) =J1 

GO TO 12 


J1 SHOULD COME BEFORE J2. 


IF (NCHAIN.FQ.0) ITHEAD(MP)=J1 
IF (NCHAIN. EQ.2) LISTS(1I2)=J1 
NCHAIN=1 
I1=J31 
~ gA=LISTS (11) 
IP(J1.RE=0) GO TO 16 
LISTS (I1)=32 : 
GC TO 12 
END 


THE BONNY HOP 

THE MEXICAN HAT DANCE 

THE WASSAIL SONG 

MY HAT IT HAS THREE CORNERS 

OH WHERF IS THAT DOGGY IN THE WINDOW 
TRE CHIPMUNK SONG 

LONDON BRIDGES FALLING DOWN 

HERE WE GO POUND THE MULBERRY EUSH 


ATTAC 
SAMPLE 


3 
PUT 


9121212141010101010151212 
181618161514 182019141617 
1818151515121294615101010 
18181616171971535140414018 
141718121315181617181212 
181816 171512 131417181220 
181818161718181919151413 
131214151617 181920211315 


8ST 


SONGFILE DATABASE 


SARY HAD A LITTLE LASS * 181618161514 182019141617 gz 
POLK SONG 
1 i ee | 1 1 1 301 
WHITE CORAL BELLS 131214151617181920211315 
GIRL SCOUT SONG ; 
2 225 1 1 _— 2 4207 
THREE BSLINE MICE Be 1818181617181819191514013 3 
CHILDREN'S SONG : 
3 31 1 1 1 205 
ROG ROW YOUR EOAT P 1818161715121314817181220 
ROUND 
4 522 1 a 1 11001 
GREEN GROW THE LILACS ~ 181816161717 1591514141418 
POLK SONG > ‘ 
5 111 1 1 1.120 
RAINDROPS KEEP FALLING ON SY HEAD 181815121416 3 4 8 9 112 
BACHARACH 
6 he | 1 1 2 380 
YELLOW SUSAARINE 18181919171720202 1212222 
BSEATLPS * 
7 225 1 1 1 1 : 1 303 
MICHELLE 121212121212 81269 3 
BEATLES 
8 31 1 1 11020 
BLOWIN IN THR WIND 18181919202 12225242 71416 
PETFR, PAUL AND SARY 
9 111 11010 
IT HAD TO BE. YoU 181217181818181815151417 
UNKNORN 
10 12 1 1 3 330 
TEA POR THO 151716121813 1718151214016 
ANCNYMOUS 
11 11 1 1 11 1 1 202 
SILENT NIGHT 121212121417171414171717 
PRANZ GRUBER Ss 
12 11141 1 220 
THE YELLOW ROSF OF TEXAS 181818181815 151515171814 
ANCNYMOUS ’ 
13 7 es | 2 450 
STAR SPANGLED BANNER = 181818171719151612171819 
PRANCES SCOTT KFY 
14 1 1 1110 
JINGLE BELLS 181815171717181919182021 
CHRIST4AS 
15 056 111 1 130 
TIPTOE THROUGH THE TULIES 181618161514 182019141617 
TINY TIS 
16 111:=«911 : 1 1:1 °01 
MARY HAD A LITTLE LASB 131214151617 1819202 11315 
CHILDREN*S NURSERY RHYME 
17 211 1 1 1 1 $1 220 
KUSBYYA SY LCRD 181818161718181919151415 
APRICAN POLK SONG 
18 312 1 1 1 11 31005 


SHALOM CHAVERTF. 201816171512 131417181220 


HEBREW CEANNUKAK SONG 


19 053 
SUNRISE 
PICDLER 

20 
GETTING 
ROEGERS 

21 111 


6T 


1 


SUNSET 
CN THE ROOP 
1 


TO KNOW YOU 
AND HAMMERSTEIN 


13 210 
181812071517 151417181912 


11 =«10 , 
181815171812 101417191919 


1 (710 


TEE BUNNY FCF 


BC MCKE MATCHES FCF THIS NCTF SECUENCE 


TRE MEYICAS HAT IARCF 

THE NCTE SECNFXCES PATCH TEAT CF SCNG NOMBEE 
MARY HAL AP LITILF LAYS 
FCIK SC&G 

TRE NCTE SECUENCES FPATCE THAT CE SCNG NUPBER 
TIFTCE THECUGR TH® TUIIPS 
TINY TIP 


BC SCEE MAICFES ECF ThIS ACTF SFCUENCE 


IEF bASSAIT SCAG 


BC MORE MATICKEFS FCF THIS ACTF SFCUFNCE 


t) 
i) 


BY AAT I1 EPS THEEF CCRAFES 

TRE NOTE SECUENCES MATCH HAT CF SCNG NOMBEF 
GEFED ChOb TEE LILACS 
FCIK SC¥S5 


BC SOBF MAICFES FCS YFIS RCTS SECUENCE 


“OH WRERF If THAT TCCCY IN TEE UTATCW 


BC MOBE MATCHFS FC? THIS N\CT* SECIEMCE 


NCTE SECUENCE - 121212161C1€ 101010151217 


KCTE SEQUENCE - TETF181E1TE141EZ01S TUTE 17 
SFOUENCE - 181€919165151U TF 2016 141617 


16 
SFOUFNCE:- TETEVATE TEIN 1E201S 1H 1617 


NCTF SEQUENCE -— 181781©1©151Z1Z14151C1C1C 


NCTE STOUENCH - 1814161€1717 1515141616 TE 


SFOWENCE — 1H1ETET6T7ITIEVS TL 141013 


NCTF SPQUENCE -— 1417169121315 1815171 1217 


TEE CHIFROUPK SCNG 

TEE NCTE SECUFNCES PATCR THAT 
FCW FCh YOUR EOAT 
ECUKE 


bC FOBB BATCBES FOR THIS NOTE 


LCNDCH BRIEGES FALLIBE DCWH 

THE NOTE SECUEBCES PATCH THAT 
TEBEE ELIE RICE 
CRILEBEB*S SCRG 

BC MORE MATICHES FOR THIS NOTE 


te 
ns 


HERE WE GC ECUCBE TRE PULEFRBY 
“TBE NOTE SECUERKCES PATCE 1BAT 
WRITE CCRAL BELIS 
€IRL SCCU1 SCRG 


TEE NOTE SECUEBCES PATCH THAT 


CF SCUG BHUABEFE 


SECUEBSCE 


OF SCNG BUABEF 


SECUFNCE 


POSH 


~ 
> 


CE SCNG KUABEF 


CP SCBG SKUAMBEF 


BABY HPC A LITTLE LAnB 
CEILDFER*S NOUBSERY RHYSE 


BC MCBE MATCRES ECR TEIS KCTE 


SECOUENCE 


NCTE SEQUENCE — 181816171£12 13141713172°C 


SEQUENCE - 181816171512 131417 181770 


NCTE SEQUENCE - 1¢61817€1€171F 181919 1° 1615 


SFQUENCE - 1818181€1718181919 1514 13 


KCTE SEQUFNCE - 1212141£161719192C211=1° 


SFODENCE -— 17212141516171819207211215 


SEQUFNCE - T21217141£161717E1©2C02112 15 
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